home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / pcrob13.zip / LIB / PCROBOTS.BI < prev    next >
Text File  |  1992-10-28  |  1KB  |  43 lines
  1. defint a-z
  2.  
  3. ' values returned by 'get_local_map'
  4. const ARENAFREE   = 0
  5. const ARENAWALL   = 1
  6. const ARENADAMAGE = 3
  7. const ARENAREFUEL = 30
  8.  
  9. ' values returned by 'get_shell_status'
  10. const SHELLMISSED     = 0
  11. const SHELLHITWALL    = 1
  12. const SHELLCLOSEBLAST = 2
  13. const SHELLNEARMISS   = 3
  14. const SHELLDIRECTHIT  = 4
  15.  
  16. declare sub SwapTask ()
  17. declare sub Movement (byval Fast, byval Angle)
  18. declare function Scan (byval Angle, byval Res, Range)
  19. declare function Shoot (byval Angle, byval Range)
  20. declare sub GetXY (X, Y)
  21. declare function Transmit (byval Target, byval Message)
  22. declare function Receive (Source, Message)
  23. declare function Damage ()
  24. declare function Speed ()
  25. declare function Battery ()
  26. declare function Ticks& ()
  27. declare function lSin& (byval Angle)
  28. declare function lCos (byval Angle)
  29. declare function lTan& (byval Angle)
  30. declare function lAtan (byval Ratio&)
  31. declare function lSqrt& (byval Value&)
  32. declare sub SetPattern (Ptr$)
  33. declare sub DebugFlag (byval Flag, byval Set)
  34. declare sub BuyArmour (byval ArmourUnits)
  35. declare sub BuyShells (byval Shells)
  36. declare function ShellsLeft ()
  37. declare sub GetLocalMap (Ptr$)
  38. declare sub Invisibility (byval InvisFlag)
  39. declare function GetShellStatus ()
  40. declare function IsInvisible ()
  41. declare function lAtan2 (byval Y, byval X)
  42. declare function Configure (byval Fast, byval Manouevre, byval Range, byval Armour, byval Acceleration, byval Invisible)
  43.